1 IF A=0 THEN PRINT"";:POKE 53281,0:POKE 53280,0
22 IF A=0 THEN A=1:LOAD"CAL.OBJ",8,1
25 CLR:DIMD$(42)
30 DN$=""
40 RT$=""
41 DIMY$(5):FORI=1TO5:READY$(I):NEXT
42 DATA 1,9,8,8,"[213]P[212]IME"
43 DIMM$(15):FORI=1TO15:READM$(I):NEXT
44 DATA " [202]ANUARY ","[198]EBRUARY ","  [205]ARCH  "
45 DATA "  [193]PRIL  ","   [205]AY   ","  [202]UNE   "
46 DATA "  [202]ULY   "," [193]UGUST  ","[211]EPTEMBER"
47 DATA " [207]CTOBER ","[206]OVEMBER ","[196]ECEMBER "
48 DATA " [213]P[212]IME  ","         "," [210]ESTART "
50 DIMMNTH$(12),MAXDAY(12),DAYS(31)
52 FORI=1TO12:READMNTH$(I),MAXDAY(I):NEXT
54 DATA "[202]ANUARY",31,"[198]EBRUARY",29,"[205]ARCH",31
56 DATA"[193]PRIL",30,"[205]AY",31,"[202]UNE",30
58 DATA"[202]ULY",31,"[193]UGUST",31,"[211]EPTEMBER",30
60 DATA"[207]CTOBER",31,"[206]OVEMBER",30,"[196]ECEMBER",31
62 DIMC$(5):FORI=1TO5:READC$(I):NEXT
64 DATA" [197]NTER [221]"," [204]OAD  [221]"," [211]AVE  [221]","[210]ESTART[221]"," [213]P[212]IME "
66 DIMW$(7):FORI=0TO6:READW$(I):NEXT
68 DATA"[211]UNDAY","[205]ONDAY","[212]UESDAY","[215]EDNESDAY","[212]HURSDAY","[198]RIDAY","[211]ATURDAY"
80 PRINTCHR$(14);CHR$(8);
100 GOSUB9200
110 PRINTTAB(8)"[196]AILY DATA RECORD KEEPER"
115 PRINTTAB(8)"(C)1988 [194]ARBARA [211]CHULAK"
120 PRINT""TAB(9)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
130 PRINTTAB(9)"[221][159] [201]NSTRUCTIONS [[217]/[206]] [146][221]"
135 PRINTTAB(9)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
140 PRINTTAB(14)"[150][176][192][192][192][192][192][192][192][192][192][174]"
142 PRINTTAB(14)"[150][221][146]         [221]"
144 PRINTTAB(14)"[150][221][146]   [158][172] [146]    [150][221]"
146 PRINTTAB(14)"[150][221][146]    [158] [146]    [150][221]"
148 PRINTTAB(14)"[150][221][146]    [158] [146]    [150][221]"
150 PRINTTAB(14)"[150][221][146]   [158][175][175][175][146]   [150][221]"
152 PRINTTAB(14)"[150][221][146]         [221]"
154 PRINTTAB(14)"[150][173][192][192][192][192][192][192][192][192][192][189]"
185 PRINT"[155] [208]UBLISHED BY [211]OFTDISK [208]UBLISHING, [201]NC.";
187 POKE 198,0
188 GETK$:IFK$=""THEN188
190 IFK$="Y"THENGOSUB10000:GOTO 200
195 IF K$<>"N" THEN 188
200 PRINT"[147]":FF=0:GOSUB9200
205 PRINT"[154]"SPC(5)"[211]ELECT YEAR GREATER THAN 1752"
210 R=8:C=11:GOSUB9000
215 PRINT"[154][176][192][174][176][192][174][176][192][174][176][192][174][153][176][192][192][192][192][192][192][174]"
220 PRINTTAB(11)"[154][221] [221][221] [221][221] [221][221] [221][153][221]      [221]"
225 PRINTTAB(11)"[154][173][192][189][173][192][189][173][192][189][173][192][189][153][173][192][192][192][192][192][192][189]"
226 GOSUB9600
230 R=9:C=12:GOSUB9000
235 FORI=1TO5:PRINT""Y$(I)"";:NEXT
240 X=1:R=9:C=12:POKE 198,0
245 GOSUB9000:PRINT""Y$(X)
250 GETK$
251 IFK$=CHR$(13)ANDX=5THEN SYS 8*4096+4
252 IFK$=CHR$(13)THEN300
255 IFK$=""THENX=X+1:C=C+3:IFX>5THENX=1:C=12
260 IFK$="[157]"THENX=X-1:C=C-3:IFX<1THENX=5:C=24
261 K=ASC(Y$(X))
265 IFK$="[145]"THENK=ASC(Y$(X)):K=K+1:IFK>57THENK=48
270 IFK$=""THENK=ASC(Y$(X)):K=K-1:IFK<48THENK=57
272 IFX<5THENY$(X)=CHR$(K)
275 GOSUB9000:PRINT"[146]"Y$(X):GOTO245
300 YR$="":FORI=1TO4:YR$=YR$+Y$(I):NEXT:YR=VAL(YR$):FF=YR:Y1$=YR$
305 IFFF<1753THEN200
318 GOSUB9200
319 PRINT"[154]"SPC(18)YR$
320 R=3:C=0:GOSUB9000
322 FORI=1TO4
325 PRINTTAB(4)"[176][192][192][192][192][192][192][192][192][192][174][176][192][192][192][192][192][192][192][192][192][174][176][192][192][192][192][192][192][192][192][192][174]"
330 PRINTTAB(4)"[221]         [221][221]         [221][221]         [221]"
335 PRINTTAB(4)"[173][192][192][192][192][192][192][192][192][192][189][173][192][192][192][192][192][192][192][192][192][189][173][192][192][192][192][192][192][192][192][192][189]":NEXT
337 PRINTTAB(4)"[153][176][192][192][192][192][192][192][192][192][192][174][176][192][192][192][192][192][192][192][192][192][174][176][192][192][192][192][192][192][192][192][192][174]"
338 PRINTTAB(4)"[221]         [221][221]         [221][221]         [221]"
339 PRINTTAB(4)"[173][192][192][192][192][192][192][192][192][192][189][173][192][192][192][192][192][192][192][192][192][189][173][192][192][192][192][192][192][192][192][192][189]"
340 R=4:C=0:GOSUB9000
342 FORI=1TO15STEP3
345 PRINTTAB(5)"[150]"M$(I)"";M$(I+1)""M$(I+2)
350 PRINT:PRINT:NEXT
355 GOSUB9100
400 X=1:R=4:C=5
401 GOSUB9000:PRINT"[150]"M$(X)
405 GETK$
407 IF K$="[140]" THEN SYS 8*4096+4
410 IFK$=CHR$(13)ANDK=14THEN405
411 IFK$=CHR$(13)ANDX=13THEN SYS 8*4096+4
412 IFK$=CHR$(13)ANDX=15THEN200
413 IFK$=CHR$(13)ANDX<13THEN500
415 IFK$=""THENX=X+1:C=C+11:IFC>27THENC=C-11:X=X-1
420 IFK$="[157]"THENX=X-1:C=C-11:IFC<5THENC=C+11:X=X+1
430 IFK$="[145]"THENX=X-3:R=R-3:IFX<1THENX=X+3:R=R+3
440 IFK$=""THENX=X+3:R=R+3:IFX>15THENX=X-3:R=R-3
490 GOSUB9000:PRINT"[146]"M$(X):GOTO401
500 GOSUB9200
501 DT$=MN$(X)+" "+YR$:PRINT"[154]"TAB((40-LEN(DT$))/2)DT$:MN=X:FF=FF+X:MO=X
505 PRINT
510 PRINTTAB(9)"[176][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][174]"
512 PRINTTAB(9)"[221][160][160][221][160][160][221][160][160][221][160][160][221][160][160][221][160][160][221][160][160][221]"
516 FORI=1TO6
518 PRINTTAB(9)"[171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]"
520 PRINTTAB(9)"[221][150]  [146][221][150]  [146][221][150]  [146][221][150]  [146][221][150]  [146][221][150]  [146][221][150]  [146][221]"
522 NEXT
524 PRINTTAB(9)"[173][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][189]"
526 PRINT"[153]"TAB(10)"[211] [205] [212] [215] [212] [198] [211] "
527 GOSUB9100
530 GOSUB6000
540 GOSUB1600
550 R=7:C=10:X=1:POKE 198,0
560 GOSUB9000:PRINT"[150]"D$(X)
565 GETK$
567 IF K$="[140]" THEN SYS 8*4096+4
570 IFK$=CHR$(13)ANDD$(X)<>"  "THEN600
575 IFK$=""THENX=X+1:C=C+3:IFC>28THENX=X-1:C=C-3
580 IFK$="[157]"THENX=X-1:C=C-3:IFC<10THENC=C+3:X=X+1
585 IFK$="[145]"THENX=X-7:R=R-2:IFR<7THENR=R+2:X=X+7
590 IFK$=""THENX=X+7:R=R+2:IFR>17THENR=R-2:X=X-7
595 GOSUB9000:PRINT"[146][150]"D$(X):GOTO560
600 F$=LEFT$(MN$(MO),3)+D$(X)+Y1$
605 PRINT"[147]";:SYS49609:REM FILL COLOR
610 GOSUB900
615 GOSUB9700
626 GOSUB2000
630 GETK$
631 IFK$=CHR$(13)THEN700
635 IFK$=""THENGOSUB9000:PRINT"[154]"C$(X):X=X+1:C=C+8:IFX>5THENX=1:C=0
640 IFK$="[157]"THENGOSUB9000:PRINT"[154]"C$(X):X=X-1:C=C-8:IFX<1THENX=5:C=32
645 IFK$=""ORK$="[157]"THENGOSUB9000:PRINT"[155]"LEFT$(C$(X),7)
650 GOTO630
700 IFX=5THENSYS 8*4096+4
705 IFX=4THEN200
710 IFX=3THENGOSUB3000:GOTO615
715 IFX=2THENGOSUB2000:GOTO615
720 PRINT"[150] [193]PPOINTMENT [195]ALENDAR         [198]1 = [205]ENU "
730 SYS49152
735 GOSUB9700:GOTO630
740 :
900 PRINT"[146][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
905 PRINT"[221]                                      [221]";
906 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
910 FORI=1TO20:PRINT"[221]                                      [221]";:NEXT
920 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":POKE2023,125:POKE56295,1
925 DT$=W$(DAYS(VAL(D$(X))))+" "+MN$(MO)+" "+D$(X)+", "+Y1$:PRINT
926 REMPRINT""TAB((40-LEN(DT$))/2);DT$
927 R=2:C=(40-LEN(DT$))/2:GOSUB9000:PRINTDT$
930 RETURN
1600 D=1:F=0:PRINT"";
1605 FORX=1TOEOM
1610 IF(DAY(1)=0)THEN1650
1615 IFF=1THEN1650
1620 F=1:B=DAY(1)
1630 FORX1=1TOB:PRINT"[150]  ";:D$(D)="  ":D=D+1
1640 NEXT
1650 X$=STR$(X):IFLEN(X$)>2THENX$=RIGHT$(X$,2)
1655 D$(D)=X$:D=D+1
1660 PRINT"[150]";X$;"";
1670 IFPEEK(211)>29THENPRINT:PRINT"";
1680 NEXT
1685 FORI=DTO42:D$(I)="  ":NEXT
1690 RETURN
1695 :
2000 POKE147,0
2010 SYS57812F$,8,1
2020 SYS62631
2025 GOSUB9500
2030 RETURN
2040 :
3000 OPEN15,8,15,"S0:"+F$:CLOSE15
3005 SYS57812F$,8,1
3010 POKE193,0:POKE194,4
3020 POKE174,0:POKE175,8
3030 SYS62957
3040 RETURN
3050 :
6000 EOM=MAXDAY(MN)
6010 IFMN<>2THEN6040
6020 DAY=29:MN=12:YR=YR-1:GOSUB6080
6025 T0=T:DAY=1:MN=1:YR=YR+1:GOSUB6080:MN=2
6030 IFT=T0THENEOM=28
6040 MN=MN-2:IF(MN<1)OR(MN>10)THENMN=MN+12:YR=YR-1
6050 CENT=INT(YR/100)
6060 YR=YR-(CENT*100)
6070 FORDAY=1TOEOM:GOSUB6080:DAYS(DAY)=T
6075 NEXT:RETURN
6080 LY=INT(YR/4):LC=INT(CENT/4)
6090 T=(2.6*MN-.2)+DAY+YR+LY+LC-CENT-CENT
6100 T=INT(T)-(INT(T/7)*7):RETURN
9000 PRINTLEFT$(DN$,R+1);
9010 PRINTLEFT$(RT$,C);
9020 RETURN
9030 :
9100 R=20:C=0:GOSUB9000
9105 PRINT"[156][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
9110 PRINT"[221][159]   [195][213][210][211][207][210] KEYS AND [210][197][212][213][210][206] TO SELECT   [146][156][221]";
9115 PRINT"[221][159]            [198]8 FOR [213]P[212]IME             [146][156][221]";
9120 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
9125 RETURN
9130 :
9200 PRINT"[147]          [193]PPOINTMENT [195]ALENDAR          "
9210 RETURN
9500 OPEN15,8,15:INPUT#15,E,E$,E1,E2
9505 IF E=0 THEN 9525
9510 PRINT""SPC(2)"[212]HERE IS NO FILE ON DISK"
9511 PRINTSPC(2)"FOR THIS DATE."
9515 FORT=1TO1500:NEXT
9520 PRINT""SPC(2)"                                  "
9521 PRINTSPC(2)"                                  "
9525 CLOSE15:POKE 198,0:RETURN
9600 R=20:C=0:GOSUB9000
9605 PRINT"[156][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
9610 PRINT"[221][159]    [195][213][210][211][207][210] KEYS TO CHANGE NUMERALS    [146][156][221]";
9615 PRINT"[221][159]         [210][197][212][213][210][206] WHEN FINISHED         [146][156][221]";
9620 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
9625 RETURN
9630 :
9700 PRINT"";:FORI=1TO5:PRINT"[154]"C$(I);:NEXT
9705 X=1:C=0:R=0
9710 GOSUB9000:PRINT"[155]"LEFT$(C$(X),7)
9715 RETURN
9720 :
9999 :
10000 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
10005 PRINT"[221][158]         [193]PPOINTMENT [195]ALENDAR[158]         [221]";
10010 PRINT"[171]``````````````````````````````````````[179]";
10015 PRINT"[221]                                      [221]";
10020 PRINT"[221]      [159][212]HIS PROGRAM WILL ALLOW YOU TO  [221]";
10025 PRINT"[221] [159]STORE NOTES, APPOINTMENTS OR WHAT-   [221]";
10030 PRINT"}[159] EVER YOU WOULD LIKE FOR ANY DAY OF[158]   }";
10035 PRINT"[221] [159]ANY YEAR.  [201]T WOULD MAKE A GREAT     [221]";
10040 PRINT"[221] [159]DIARY.                               [221]";
10045 PRINT"[221]      [159][212]O USE THE PROGRAM, FIRST       [221]";
10050 PRINT"[221] [159]SELECT THE YEAR BY USING THE CURSOR  [221]";
10055 PRINT"[221] [159]KEYS.  [213]SE THE RIGHT OR LEFT CURSOR  [221]";
10060 PRINT"[221] [159]KEY TO CHOOSE THE DIGIT AND THE      [221]";
10065 PRINT"[221] [159]CURSOR UP AND DOWN KEYS TO INCREASE  [221]";
10070 PRINT"[221] [159]OR LOWER THE NUMBER.  [215]HEN FINISHED, [221]";
10075 PRINT"[221] [159]PRESS [210][197][212][213][210][206].                        [221]";
10080 PRINT"[221]      [159][212]HEN SELECT THE MONTH BY USING  [221]";
10085 PRINT"[221] [159]THE CURSOR KEYS TO HIGHLIGHT YOUR    [221]";
10090 PRINT"[221] [159]CHOICE AND THEN PRESS [210][197][212][213][210][206].        [221]";
10095 PRINT"[221]      [159][198]OLLOW THE SAME PROCEDURE TO    [221]";
10100 PRINT"[221] [159]SELECT THE DAY OF THE WEEK.          [221]";
10105 PRINT"[221]                                      [221]";
10110 PRINT"[171]``````````````````````````````````````[179]";
10115 PRINT"[221]             [208]RESS [210][197][212][213][210][206] [158]            [221]";
10120 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";:POKE2023,125:POKE56295,1
10125 GETK$:IFK$<>CHR$(13)THEN10125
10130 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
10135 PRINT"[221]         [193]PPOINTMENT [195]ALENDAR         [221]";
10140 PRINT"[171]``````````````````````````````````````[179]";
10145 PRINT"[221]                                      [221]";
10150 PRINT"[221]      [159][217]OU WILL NOW BE PRESENTED WITH  [221]";
10155 PRINT"[221] [159]A PAGE OF THE CALENDAR.  [201]F YOU HAVE [221]";
10160 PRINT"[221][159] A PAGE ON DISK, IT WILL BE AUTOMATI- [221]";
10165 PRINT"[221] [159]CALLY LOADED.  [201]N ADDITION TO LOAD,  [221]";
10170 PRINT"[221] [159]YOU MAY SAVE A PAGE, ENTER DATA,     [221]";
10171 PRINT"[221] [159]RESTART THE PROGRAM OR EXIT TO       [221]";
10175 PRINT"[221] [159][213]P[212]IME.  [213]SE THE RIGHT/LEFT CURSOR   [221]";
10180 PRINT"[221] [159]KEYS AGAIN TO SELECT YOUR CHOICE AND [221]";
10185 PRINT"[221] [159]THEN PRESS [210][197][212][213][210][206].                   [221]";
10190 PRINT"[221][159]      [200]AVING CHOSEN [197][206][212][197][210], A FLASHING [221]";
10195 PRINT"[221] [159]CURSOR WILL APPEAR ON THE CALENDAR   [221]";
10200 PRINT"[221] [159]PAGE.  [211]IMPLY START WRITING.  [212]HE    [221]";
10205 PRINT"[221] [159]NORMAL CURSOR KEYS, HOME, CLEAR,     [221]";
10210 PRINT"[221] [159]RETURN, INSERT AND DELETE KEYS ARE   [221]";
10215 PRINT"[221] [159]ALL FUNCTIONAL.  [212]O EXIT AND REGAIN  [221]";
10220 PRINT"[221] [159]ACCESS TO THE MENU, PRESS [198]1.  [194]E    [221]";
10225 PRINT"[221] [159]SURE TO SAVE A PAGE WHEN FINISHED.   [221]";
10235 PRINT"[221]                                      [221]";
10240 PRINT"[171]``````````````````````````````````````[179]";
10245 PRINT"[221]             [208]RESS [210][197][212][213][210][206] [158]            [221]";
10250 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";:POKE2023,125:POKE 56295,1
10255 GETK$:IFK$<>CHR$(13)THEN10255
10260 RETURN